﻿Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles Button1.Click
    Dim NL As String = Environment.NewLine
    Dim messaggio As String = ""
    messaggio &= "Nome: " & My.User.Name & NL
    messaggio &= "Autenticato?: " & _
        My.User.IsAuthenticated & NL
    messaggio &= _
        My.User.CurrentPrincipal.ToString & NL
    MessageBox.Show(messaggio)
  End Sub
End Class
